/*  J
**  Date 2007-05-21 23:57:06 
**  File object.c  v 1.0
**  Author Mucker
**  See Copyright Notice in J.h
**  
*/

#include "J.h"

#include "object.h"


int obj_str2d( char *str , Jnumber *d)
{
    char *end;
    *d = Mstr2d(str, &end);
    if(end == str) return 0;
    if(end == '\0') return 1;
    //while(isspace(cast(char, end))) end ++;
    if(end != '\0') return 0;
    return 1;
}
